home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / char.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  5KB  |  204 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 15 "char.d"
  17. #include <math.h> 
  18.  
  19. #define    CLASS    Character_c
  20. #define    ivType    Character_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    Character_c;
  25.  
  26.  
  27. #line 28 "char.c"
  28. typedef struct  _Character_iv_t  {
  29.     char iVal;
  30. }    Character_iv_t;
  31.  
  32.  
  33.  
  34. #line 22 "char.d"
  35. cmeth objrtn Character_cm_gNewWithChar(object self, int val)
  36. { 
  37.     object obj = oSuper(Character_c, gNew, self)(self); 
  38.     ivType *iv = ivPtr(obj); 
  39.     iv->iVal = (char) val; 
  40.     return(obj); 
  41. } 
  42.  
  43. imeth objrtn Character_im_gStringRepValue(object self)
  44. { Character_iv_t *iv = GetIVs(Character, self);
  45.     return vSprintf(String, "'%c'", iv->iVal); 
  46. } 
  47.  
  48. imeth char Character_im_gCharValue(object self)
  49. { Character_iv_t *iv = GetIVs(Character, self);
  50.     return (char) iv->iVal; 
  51. } 
  52.  
  53. imeth short Character_im_gShortValue(object self)
  54. { Character_iv_t *iv = GetIVs(Character, self);
  55.     return (short) iv->iVal; 
  56. } 
  57.  
  58. imeth unsigned short Character_im_gUnsignedShortValue(object self)
  59. { Character_iv_t *iv = GetIVs(Character, self);
  60.     return (unsigned short) iv->iVal; 
  61. } 
  62.  
  63. imeth long Character_im_gLongValue(object self)
  64. { Character_iv_t *iv = GetIVs(Character, self);
  65.     return (long) iv->iVal; 
  66. } 
  67.  
  68. imeth double Character_im_gDoubleValue(object self)
  69. { Character_iv_t *iv = GetIVs(Character, self);
  70.     return (double) iv->iVal; 
  71. } 
  72.  
  73. imeth objrtn Character_im_gChangeValue(object self, object val)
  74. { Character_iv_t *iv = GetIVs(Character, self);
  75.     ChkArg(val, 2); 
  76.     iv->iVal = gCharValue(val); 
  77.     return self; 
  78. } 
  79.  
  80. imeth objrtn Character_im_gChangeCharValue(object self, int val)
  81. { Character_iv_t *iv = GetIVs(Character, self);
  82.     iv->iVal = (char) val; 
  83.     return self; 
  84. } 
  85.  
  86. imeth objrtn Character_im_gChangeShortValue(object self, int val)
  87. { Character_iv_t *iv = GetIVs(Character, self);
  88.     iv->iVal = (char) val; 
  89.     return self; 
  90. } 
  91.  
  92. imeth objrtn Character_im_gChangeUShortValue(object self, unsigned val)
  93. { Character_iv_t *iv = GetIVs(Character, self);
  94.     iv->iVal = (char) val; 
  95.     return self; 
  96. } 
  97.  
  98. imeth objrtn Character_im_gChangeLongValue(object self, long val)
  99. { Character_iv_t *iv = GetIVs(Character, self);
  100.     iv->iVal = (char) val; 
  101.     return self; 
  102. } 
  103.  
  104. imeth objrtn Character_im_gChangeDoubleValue(object self, double val)
  105. { Character_iv_t *iv = GetIVs(Character, self);
  106.     iv->iVal = (char) val; 
  107.     return self; 
  108. } 
  109.  
  110. imeth void * Character_im_gPointerValue(object self)
  111. { Character_iv_t *iv = GetIVs(Character, self);
  112.     return (void *) &iv->iVal; 
  113. } 
  114.  
  115. imeth objrtn Character_im_gFormatChar(object self)
  116. { Character_iv_t *iv = GetIVs(Character, self);
  117.     char b[2]; 
  118.  
  119.     b[0] = iv->iVal; 
  120.     b[1] = '\0'; 
  121.     return gNewWithStr(String, b); 
  122. } 
  123.  
  124. imeth int Character_im_gHash(object self)
  125. { Character_iv_t *iv = GetIVs(Character, self);
  126.     double t; 
  127.  
  128.     t = .6125423371 * (unsigned) iv->iVal; 
  129.     t = t < 0.0 ? -t : t; 
  130.     return (int) (BIG_INT * (t - floor(t))); 
  131. } 
  132.  
  133. imeth int Character_im_gCompare(object self, object obj)
  134. { Character_iv_t *iv = GetIVs(Character, self);
  135.     short sv, ov; 
  136.  
  137.     ChkArg(obj, 2); 
  138.     if (ClassOf(obj) != CLASS) 
  139.         return oSuper(Character_c, gCompare, self)(self, obj); 
  140.     if ((sv=iv->iVal) < (ov=ivPtr(obj)->iVal)) 
  141.         return -1; 
  142.     else if (sv == ov) 
  143.         return 0; 
  144.     else 
  145.         return 1; 
  146. } 
  147.  
  148.  
  149. #line 150 "char.c"
  150.  
  151. objrtn    Character_initialize(void)
  152. {
  153.     static  CRITICALSECTION  cs;
  154.     static  int volatile once = 0;
  155.  
  156.     ENTERCRITICALSECTION(_CI_CS_);
  157.     if (!once) {
  158.         INITIALIZECRITICALSECTION(cs);
  159.         once = 1;
  160.     }
  161.     LEAVECRITICALSECTION(_CI_CS_);
  162.  
  163.     ENTERCRITICALSECTION(cs);
  164.  
  165.     if (Character_c) {
  166.         LEAVECRITICALSECTION(cs);
  167.         return Character_c;
  168.     }
  169.     INHIBIT_THREADER;
  170.     Number_initialize();
  171.     if (Character_c)  {
  172.         ENABLE_THREADER;
  173.         LEAVECRITICALSECTION(cs);
  174.         return Character_c;
  175.     }
  176.     Character_c = gNewClass(Class, "Character", sizeof(Character_iv_t), 0, Number, END);
  177.     cMethodFor(Character, gNewWithChar, Character_cm_gNewWithChar);
  178.     iMethodFor(Character, gUnsignedShortValue, Character_im_gUnsignedShortValue);
  179.     iMethodFor(Character, gChangeDoubleValue, Character_im_gChangeDoubleValue);
  180.     iMethodFor(Character, gDoubleValue, Character_im_gDoubleValue);
  181.     iMethodFor(Character, gCompare, Character_im_gCompare);
  182.     iMethodFor(Character, gChangeLongValue, Character_im_gChangeLongValue);
  183.     iMethodFor(Character, gChangeShortValue, Character_im_gChangeShortValue);
  184.     iMethodFor(Character, gShortValue, Character_im_gShortValue);
  185.     iMethodFor(Character, gPointerValue, Character_im_gPointerValue);
  186.     iMethodFor(Character, gCharValue, Character_im_gCharValue);
  187.     iMethodFor(Character, gStringRepValue, Character_im_gStringRepValue);
  188.     iMethodFor(Character, gChangeUShortValue, Character_im_gChangeUShortValue);
  189.     iMethodFor(Character, gHash, Character_im_gHash);
  190.     iMethodFor(Character, gChangeValue, Character_im_gChangeValue);
  191.     iMethodFor(Character, gLongValue, Character_im_gLongValue);
  192.     iMethodFor(Character, gFormatChar, Character_im_gFormatChar);
  193.     iMethodFor(Character, gChangeCharValue, Character_im_gChangeCharValue);
  194.  
  195.     ENABLE_THREADER;
  196.  
  197.     LEAVECRITICALSECTION(cs);
  198.  
  199.     return Character_c;
  200. }
  201.  
  202.  
  203.  
  204.